home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / libcalls / mathieeesingtrans.inc < prev    next >
Text File  |  1998-06-24  |  2KB  |  120 lines
  1. pattern IEEESPAtan(_parm) is
  2.     push a6;
  3.     d0.l:=_parm;
  4.     a6:=MathIeeeSingTransBase; jsr [a6-30];
  5.     pop a6;
  6. endp;                                                            # IEEESPATAN
  7.  
  8. pattern IEEESPSin(_parm) is
  9.     push a6;
  10.     d0.l:=_parm;
  11.     a6:=MathIeeeSingTransBase; jsr [a6-36];
  12.     pop a6;
  13. endp;                                                            # IEEESPSIN
  14.  
  15. pattern IEEESPCos(_parm) is
  16.     push a6;
  17.     d0.l:=_parm;
  18.     a6:=MathIeeeSingTransBase; jsr [a6-42];
  19.     pop a6;
  20. endp;                                                            # IEEESPCOS
  21.  
  22. pattern IEEESPTan(_parm) is
  23.     push a6;
  24.     d0.l:=_parm;
  25.     a6:=MathIeeeSingTransBase; jsr [a6-48];
  26.     pop a6;
  27. endp;                                                            # IEEESPTAN
  28.  
  29. pattern IEEESPSincos(_cosptr,_parm) is
  30.     push a6;
  31.     safe a0:=_cosptr; d0.l:=_parm;;
  32.     a6:=MathIeeeSingTransBase; jsr [a6-54];
  33.     pop a6;
  34. endp;                                                            # IEEESPSINCOS
  35.  
  36. pattern IEEESPSinh(_parm) is
  37.     push a6;
  38.     d0.l:=_parm;
  39.     a6:=MathIeeeSingTransBase; jsr [a6-60];
  40.     pop a6;
  41. endp;                                                            # IEEESPSINH
  42.  
  43. pattern IEEESPCosh(_parm) is
  44.     push a6;
  45.     d0.l:=_parm;
  46.     a6:=MathIeeeSingTransBase; jsr [a6-66];
  47.     pop a6;
  48. endp;                                                            # IEEESPCOSH
  49.  
  50. pattern IEEESPTanh(_parm) is
  51.     push a6;
  52.     d0.l:=_parm;
  53.     a6:=MathIeeeSingTransBase; jsr [a6-72];
  54.     pop a6;
  55. endp;                                                            # IEEESPTANH
  56.  
  57. pattern IEEESPExp(_parm) is
  58.     push a6;
  59.     d0.l:=_parm;
  60.     a6:=MathIeeeSingTransBase; jsr [a6-78];
  61.     pop a6;
  62. endp;                                                            # IEEESPEXP
  63.  
  64. pattern IEEESPLog(_parm) is
  65.     push a6;
  66.     d0.l:=_parm;
  67.     a6:=MathIeeeSingTransBase; jsr [a6-84];
  68.     pop a6;
  69. endp;                                                            # IEEESPLOG
  70.  
  71. pattern IEEESPPow(_exp,_arg) is
  72.     push a6;
  73.     safe d1.l:=_exp; d0.l:=_arg;;
  74.     a6:=MathIeeeSingTransBase; jsr [a6-90];
  75.     pop a6;
  76. endp;                                                            # IEEESPPOW
  77.  
  78. pattern IEEESPSqrt(_parm) is
  79.     push a6;
  80.     d0.l:=_parm;
  81.     a6:=MathIeeeSingTransBase; jsr [a6-96];
  82.     pop a6;
  83. endp;                                                            # IEEESPSQRT
  84.  
  85. pattern IEEESPTieee(_parm) is
  86.     push a6;
  87.     d0.l:=_parm;
  88.     a6:=MathIeeeSingTransBase; jsr [a6-102];
  89.     pop a6;
  90. endp;                                                            # IEEESPTIEEE
  91.  
  92. pattern IEEESPFieee(_parm) is
  93.     push a6;
  94.     d0.l:=_parm;
  95.     a6:=MathIeeeSingTransBase; jsr [a6-108];
  96.     pop a6;
  97. endp;                                                            # IEEESPFIEEE
  98.  
  99. pattern IEEESPAsin(_parm) is
  100.     push a6;
  101.     d0.l:=_parm;
  102.     a6:=MathIeeeSingTransBase; jsr [a6-114];
  103.     pop a6;
  104. endp;                                                            # IEEESPASIN
  105.  
  106. pattern IEEESPAcos(_parm) is
  107.     push a6;
  108.     d0.l:=_parm;
  109.     a6:=MathIeeeSingTransBase; jsr [a6-120];
  110.     pop a6;
  111. endp;                                                            # IEEESPACOS
  112.  
  113. pattern IEEESPLog10(_parm) is
  114.     push a6;
  115.     d0.l:=_parm;
  116.     a6:=MathIeeeSingTransBase; jsr [a6-126];
  117.     pop a6;
  118. endp;                                                            # IEEESPLOG10
  119.  
  120.